home *** CD-ROM | disk | FTP | other *** search
/ s-gikan2.maizuru-ct.ac.jp / s-gikan2.maizuru-ct.ac.jp.zip / s-gikan2.maizuru-ct.ac.jp / pub / ncvc352a_install.exe / {app} / scripts / remove_point.pl < prev    next >
Perl Script  |  2004-04-02  |  1KB  |  44 lines
  1. #! /usr/bin/perl
  2.  
  3. #  É▌ÆΦé╡é╜ò╢ÄÜâRü[âhé╠ăé╠ÉöÄÜé╠żÉöô_é≡ìφÅ£é╖éΘâXâNâèâvâg  #
  4. #  ex P1000. -> P1000                                        #
  5. #  é╜é╛é╡üAżÉöÆlé╠éáéΘéαé╠(ex.41.1)é═ìφÅ£é╡é╚éó             #
  6. #  Å¼ÉöÆlé¬0é╠é▌é╠é╞é½(ex.1.000)é═âIâvâVâçâôé┼É▌ÆΦ           #
  7.  
  8. ######################################################
  9. #żÉöô_é≡ìφÅ£é╡é╜éóò╢ÄÜâRü[âhé≡ÿAæ▒é┼ôⁿéΩé─é¡é╛é│éó
  10. #ex. SFP
  11. $remove_code= 'SFP';
  12. ######################################################
  13.  
  14. ###############################################################
  15. #żÉöÆlé¬0é╠é▌é╠é╞é½Å¼Éöô_é≡ìφÅ£(ex.1.000->1) --> 0
  16. #                           ìφÅ£é╡é╚éó(ex.1.000->1.000) --> 1
  17. $point_flag= 0;
  18. ###############################################################
  19.  
  20. $pre_file= $ARGV[0];
  21. $out_file= $ARGV[1];
  22. open(IN,$pre_file);
  23. open(OUT,">$out_file");
  24.  
  25. while(<IN>){
  26.     if(!/^N?[0-9\s]*[\(\%]/){
  27.         $new_line= "";
  28.         while(/([$remove_code])([\-\d\.]+)/){
  29.             ($pre_line,$char,$num,$_)= ($`,$1,$2,$');
  30.             if($num =~ /(.+)\.$/){$num= $1;}
  31.             else{
  32.                 if($point_flag == 0){
  33.                     if($num =~ /(.+)\.0+$/){$num= $1;}
  34.                 }
  35.             }
  36.             $new_line= $new_line.$pre_line.$char.$num;
  37.         }
  38.         $_= $new_line.$_;
  39.     }
  40.     print OUT;
  41. }
  42. close(OUT);
  43. close(IN);
  44.